let length arr =
	let sum = Array.fold_left
		(fun sum elem -> sum +. elem *. elem)
		0.0 arr
	in sqrt sum
;;

let dimension arr =
	Array.length arr
	
